home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 3 / Cream of the Crop 3.iso / utility / anssho10.zip / ANSISHOW.BAS < prev    next >
BASIC Source File  |  1993-11-03  |  4KB  |  74 lines
  1. '* AUTHOR CORKY CORCORAN (C)
  2. '* IF YOU LIKE IT FINE, IF YOU DON'T DONT BOTHER ME.
  3. '* THIS IS JUST FOR FUN CHANGE IT AS YOU LIKE. LOOK FOR NOTES FOR TIMER
  4. '* CHANGES
  5. '**********************************************************************
  6. '* DETECT COMPUTER SPEED
  7. '**********************************************************************
  8.   S! = TIMER                   ' SET TIME
  9.   DO
  10.      I! = 1! + 1               ' INCREMENT COUNT
  11.   LOOP UNTIL TIMER - S! >= .5  ' UNTIL WE GET A RELATIVE TIME
  12.   CALCDELAY = I!               ' SAVE IT (COMPUTER SPEED)
  13. '**********************************************************************
  14. '* GET FILE NAME OF ANSI FILES TO BE DISPLAYED
  15. '**********************************************************************
  16.   ANSIFILE$ = COMMAND$         ' GET COMMAND LINE
  17. '**********************************************************************
  18. '* DEFAULT TO SHOW.FLE IF NONE ENTERED
  19. '**********************************************************************
  20.   IF ANSIFILE$ = "" THEN ANSIFILE$ = "SHOW.FLE"  ' IF NONE DEFAULT
  21. '**********************************************************************
  22. '* OPEN A FILE NAME
  23. '**********************************************************************
  24. START.OVER:
  25.   OPEN ANSIFILE$ FOR INPUT AS #3  ' OPEN FILE NAMES FILE
  26. '**********************************************************************
  27. '* GET AN ANSI FILE NAME
  28. '**********************************************************************
  29. NEXT.FILE:
  30.   LINE INPUT #3, FILENME$         ' GET A FILE NAME
  31.   CLS
  32.   OPEN FILENME$ FOR INPUT AS #2   ' OPEN THAT FILE NAME
  33.   ON ERROR GOTO 0
  34.   OPEN "CONS:" FOR OUTPUT AS #1   ' OPEN CONSOLE(DISPLAY SCREEN)
  35.   S! = TIMER                      ' START A TIMER
  36. '**********************************************************************
  37. '* READ AN ANSI FILE
  38. '**********************************************************************
  39. NEXT.LINE:
  40.   IF INKEY$ <> "" THEN            ' DID THE USER HIT A KEY
  41.      CLOSE #2, #1, #3             ' YES, CLOSE
  42.      CLS
  43.      GOTO ALL.DONE                ' WERE DONE
  44.   END IF
  45.   LINE$ = INPUT$(1, #2)           'GET A CHARACTER
  46.   FOR I = 1 TO CALCDELAY * 25: NEXT ' WAIT FOR A WHILE (25)
  47.   PRINT #1, LINE$;                  ' DISPLAY THE CHARACTER
  48.   IF EOF(2) THEN GOTO EOF.SHOW      ' IS THIS FILE DONE
  49.   GOTO NEXT.LINE                    ' NO DISPLAY ANOTHER CHARACTER
  50. '**********************************************************************
  51. '* DONE WITH THIS FILE
  52. '**********************************************************************
  53. EOF.SHOW:
  54.   CLOSE #2, #1                      ' CLOSE CONSOLE AND ANSI FILE
  55.   DO                                ' WAIT FOR A RELATIVE AMOUNT
  56.     I! = 1! + 1                     ' OF TIME (10) HAS EXPIRED TO LET
  57.   LOOP UNTIL TIMER - S! >= 10       ' QUICK SCREENS HAVE SOME TIME
  58.   CLS
  59.   IF EOF(3) THEN GOTO EOJ           ' HAS THE FILE LIST ENDED
  60.   GOTO NEXT.FILE                    ' START ALL OVER AGAIN
  61. '**********************************************************************
  62. '* DONE WITH THIS LIST OF FILES
  63. '**********************************************************************
  64. EOJ:                                ' WERE DONE WITH THIS SET
  65.   CLOSE #3                          ' CLOSE THE FILE
  66.   GOTO START.OVER                   ' AND DO IT AGAIN
  67. '**********************************************************************
  68. '* DONE EVERY THING
  69. '**********************************************************************
  70. ALL.DONE:                           ' USER HIT A KEY
  71.   CLS                               ' GO HOME
  72. END
  73.  
  74.